home
***
CD-ROM
|
disk
|
FTP
|
other
***
search
/
64'er Special 40
/
64er_Magazin_Sonderheft_40_19xx_Markt__Technik_de.d64
/
kleines spiel
(
.txt
)
< prev
next >
Wrap
Commodore BASIC
|
2022-10-26
|
1KB
|
77 lines
10 print chr$(147)
20 print"***** begriffe raten ******
30 [153]
40 :
50 [143]-------- spielanleitung----------
60 :
70 :
80 [153]"der computer denkt sich eine
90 print"sportart.
100 [153]"sie sollen sie erraten.
110 print
120 print"sie koennen einen buchstaben
130 [153]"eingeben, dann erscheinen
140 print"die geratenen buchstaben an
150 [153]"der richtigen stelle.
160 print
170 print"haben sie das wort erraten,
180 [153]"geben sie es komplett ein.
190 :
200 :
210 rem------- wort auswaehlen -------
220 :
230 :
240 for x=1 to int(rnd(0)*14)+1
250 read u$
260 next
270 :
280 h$=""
290 for x=1 to len(u$)
300 h$=h$+"."
310 next
320 :
330 :
340 rem-------- rateversuch ---------
350 :
360 print:print
370 print"gesucht wird: ";h$
380 print
390 input"was raten sie";l$
400 if l$=u$ then 600
410 if len(l$)>1 then 360
420 :
430 :
440 rem--------- hilfswort ----------
450 :
460 :
470 n$=""
480 for x=1 to len(u$)
490 b$=mid$(u$,x,1)
500 c$=mid$(h$,x,1)
510 if l$=b$ then n$=n$+l$:goto 530
520 n$=n$+c$
530 next
540 h$=n$
550 goto 360
560 :
570 :
580 rem---- noch einmal ? ----------
590 :
600 print
610 print"sie haben richtig geraten
620 [153]
630 [153]"noch einmal (j/n) ?
640 get a$: if a$="" then 640
650 if a$="j" then run
660 print
670 print"auf wiedersehen
680 :
690 :
700 [143]------- woerterspeicher--------
710 :
720 :
730 [131] fussball,hockey,golf,boxen
740 [131] turnen,schwimmen,hochsprung
750 [131] segeln,fechten,judo,basketball
760 [131] kegeln,schifahren,tennis